5 :
6 :
10 REM *** MAIN PROGRAM ***
20 :
30 GOSUB 4000:REM *** LOAD AND RUN SWAP ROUTINE ***
40 DIM D(194):GOSUB 5400:REM *** LOAD DVORAK DATA ***
50 GOSUB 5050:END:REM *** LOAD DATA INTO KEY TABLE, END ***
3994 :
3995 :
3996 REM *** LOAD AND RUN SWAP ROUTINE ***
3997 :
4000 T=0:FOR I=0 TO 62:READ J:T=T+J:POKE 49152+I,J:NEXT
4010 IF T=10067 GOTO 4050:REM *** TOTAL FOR ML ROUTINE ***
4020 PRINT "      DATA ERROR IN SWAP SUBROUTINE"
4040 END
4050 SYS 49152:RETURN:REM *** SWAP OUT BASIC AND KERNAL ***
4095 :
4096 :
4097 REM *** DATA FOR ML ROUTINE THAT COPIES BASIC AND KERNAL INTO RAM ***
4098 REM *** CODE USES NO ABSOLUTE ADDRESSES SO MAY BE LOCATED ANYWHERE ***
4099 :
4100 DATA 169,0,133,251,169,160,133,252,162,32,160,0,177,251,145,251,136
4110 DATA 240,2,208,247,202,240,4,230,252,208,238,169,0,133,251,169,224,133,252
4120 DATA 162,32,169,0,177,251,145,251,136,240,2,208,247,202,240,4,230,252,208
4130 DATA 238,165,1,41,253,133,1,96
4994 :
4995 :
4996 REM *** ROUTINES TO READ AND LOAD DVORAK KEY DATA ***
4997 :
4998 REM *** SUBROUTINE FOR POKING DVORAK DATA INTO KEY TABLE ***
4999 :
5050 FOR I=0 TO 194
5070 POKE I+60289,D(I)
5090 NEXT
5100 RETURN
5396 :
5397 :
5398 REM *** READ AND CHECK DVORAK DATA ***
5399 :
5400 T=0:FOR I=0 TO 194:READ D(I):T=T+D(I):NEXT
5405 IF T=22987 THEN 5410
5407 PRINT "      DATA ERROR IN DVORAK KEYSET"
5408 END
5410 RETURN
5496 :
5497 :
5498 REM *** DVORAK DATA ARRANGED BY KEYNUMBER ***
5499 :
5500 DATA 20,13,29,136,133,134,135,17,51,44,65,52,59,79,46,1,53,80,69,54,74,85
5510 DATA 89,81,55,70,73,56,88,68,71,75,57,67,72,48,77,84,82,66,43,76,78,45
5520 DATA 86,83,64,87,92,42,58,19,1,61,94,90,49,95,4,50,32,2,47,3,255
5530 DATA 148,141,157,140,137,138,139,145,35,60,193,36,93,207,62,1,37,208,197
5540 DATA 38,202,213,217,209,39,198,201,40,216,196,199,203,41,195,200,48
5550 DATA 205,212,210,194,219,204,206,221,214,211,186,215,169,192,91,147,1
5560 DATA 61,222,218,33,95,4,34,160,2,63,131,255
5570 DATA 148,141,157,140,137,138,139,145,150,60,176,151,93,185,62,1,152
5580 DATA 175,177,153,181,184,183,171,154,187,162,155,189,172,165,161,41
5590 DATA 188,180,48,167,163,178,191,166,182,170,220,190,174,164,179,168,223,91
5600 DATA 147,1,61,222,173,129,95,4,149,160,2,63,131,255